Решение:

К пункту 1 - создание пользовательской формы:

• Откройте окно редактора Visual Basic для Word и щелкните правой кнопкой мыши по проекту Normal в Project Explorer, а затем выберите в контекстном меню Insert -> UserForm.
• В дизайнере форм сконструируйте форму, аналогичную представленной на рис. 10.1-2 (про работу с дизайнером форм рассказывалось в разделе 5). В нашем примере элементы управления на форме будут называться так:
  • текстовое поле для ввода города: txtCity;
  • текстовое поле для ввода номера договора: txtNumber;
  • текстовое поле для ввода даты: txtDate;
  • текстовое поле для ввода наименования организации: txtOrg;
  • текстовое поле для ввода представителя организации: txtPerson;
  • текстовое поле для ввода его должности: txtTitle;
  • текстовое поле для ввода юридического основания: txtLaw;
  • кнопка для формирования договора: cmdDog;
  • кнопка Отмена: cmdСancel.
• Настройте оформление для элементов управления по вашему вкусу. Установите значение для свойства Caption для формы как "Данные договора". Для кнопки cmdDog установите True для значения свойства Default, а для кнопки cmdCancel установите True для значения свойства Cancel. Для свойства (Name) самой формы введите значение FormDog.

К пункту 2 - создание макроса и кнопки для показа формы:

• В стандартном модуле NewMacros проекта Normal создайте новую процедуру с именем FormDog(). Код ее может быть таким:

Public Sub FormDogShow ()

FormDog.Show

End Sub

• Убедитесь, что при его запуске открывается созданная вами форма.
• В Word в меню Сервис выберите Настройка, а затем перейдите на вкладку Команды. В списке Категории выберите Макросы, а затем перетащите на любую панель инструментов макрос Normal. NewMacros. FormDogShow. Настройте для созданной кнопки подходящий формат отображения (см. главу 1 этой книги). После этого закройте окно Настройка и убедитесь, что при нажатии на эту кнопку открывается форма.

К пункту 3 - создание шаблона документа Word:

• Создайте новый документ Word, аналогичный представленному на рис. 10.4.

Рис. 10.4 Шаблон договора

• Поместите в нужные места этого документа закладки. Места вставки закладок можно посмотреть на рис. 10.2 (текст, выделенный зеленым). В нашем примере закладки будут называться так:
  • закладка для ввода номера договора: bNumber;
  • закладка для ввода города: bCity;
  • закладка для ввода даты: bDate;
  • закладка для ввода наименования организации: bOrg;
  • закладка для ввода представителя организации: bPerson;
  • закладка для ввода его должности: bTitle;
  • закладка для ввода юридического основания: bLaw.
• Сохраните этот файл как шаблон Microsoft Word с именем C:\DogovorTemplate.dot.

К пункту 4 - создание программного кода для кнопок на форме:

• Для события Click кнопки cmdCancel введите следующий программный код:

Private Sub cmdCancel_Click()

FormDog.Hide

End Sub

• Для события Click кнопки cmdDog можно использовать следующий программный код:

Private Sub cmdDog_Click()

Dim oDoc As Document

Set oDoc = Application.Documents.Add("C:\DogovorTemplate.dot")

oDoc.Bookmarks("bNumber").Range.Text = txtNumber.Value

oDoc.Bookmarks("bCity").Range.Text = txtCity.Value

oDoc.Bookmarks("bDate").Range.Text = txtDate.Value

oDoc.Bookmarks("bOrg").Range.Text = txtOrg.Value

oDoc.Bookmarks("bTitle").Range.Text = txtTitle.Value

oDoc.Bookmarks("bPerson").Range.Text = txtPerson.Value

oDoc.Bookmarks("bLaw").Range.Text = txtLaw.Value

FormDog.Hide

oDoc.Activate

End Sub

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)